home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / newstart / nsabout.frm < prev    next >
Text File  |  1995-09-06  |  5KB  |  150 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BackColor       =   &H0000FFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About NewStart"
  6.    ClientHeight    =   3165
  7.    ClientLeft      =   1080
  8.    ClientTop       =   1305
  9.    ClientWidth     =   5745
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   -1  'True
  12.    FontName        =   "MS Serif"
  13.    FontSize        =   9.75
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    ForeColor       =   &H000080FF&
  17.    Height          =   3570
  18.    Icon            =   NSABOUT.FRX:0000
  19.    Left            =   1020
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   3165
  25.    ScaleWidth      =   5745
  26.    Top             =   960
  27.    Width           =   5865
  28.    Begin CommandButton Cmd_OK 
  29.       Caption         =   "OK"
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "System"
  33.       FontSize        =   9.75
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   360
  37.       Left            =   4350
  38.       TabIndex        =   0
  39.       Top             =   1800
  40.       Width           =   1035
  41.    End
  42.    Begin PictureBox Picture1 
  43.       BackColor       =   &H0000FFFF&
  44.       BorderStyle     =   0  'None
  45.       Height          =   630
  46.       Left            =   120
  47.       Picture         =   NSABOUT.FRX:0302
  48.       ScaleHeight     =   630
  49.       ScaleWidth      =   735
  50.       TabIndex        =   6
  51.       Top             =   240
  52.       Width           =   735
  53.    End
  54.    Begin Label Label1 
  55.       BackColor       =   &H0000FFFF&
  56.       Caption         =   "                 1-803-782-3772"
  57.       FontBold        =   -1  'True
  58.       FontItalic      =   0   'False
  59.       FontName        =   "MS Sans Serif"
  60.       FontSize        =   12
  61.       FontStrikethru  =   0   'False
  62.       FontUnderline   =   0   'False
  63.       ForeColor       =   &H00000000&
  64.       Height          =   645
  65.       Left            =   1500
  66.       TabIndex        =   4
  67.       Top             =   1710
  68.       Width           =   2205
  69.    End
  70.    Begin Label Label2 
  71.       BackColor       =   &H0000FFFF&
  72.       Caption         =   "SYSOP  -  Jeff Elkins"
  73.       FontBold        =   -1  'True
  74.       FontItalic      =   0   'False
  75.       FontName        =   "MS Sans Serif"
  76.       FontSize        =   12
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       ForeColor       =   &H00000000&
  80.       Height          =   330
  81.       Left            =   1290
  82.       TabIndex        =   5
  83.       Top             =   1305
  84.       Width           =   3165
  85.    End
  86.    Begin Label Lbl_Microsoft 
  87.       BackColor       =   &H0000FFFF&
  88.       Caption         =   "Mote Prime BBS - Columbia South Carolina"
  89.       FontBold        =   -1  'True
  90.       FontItalic      =   0   'False
  91.       FontName        =   "MS Sans Serif"
  92.       FontSize        =   12
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       ForeColor       =   &H00000000&
  96.       Height          =   345
  97.       Left            =   195
  98.       TabIndex        =   3
  99.       Top             =   930
  100.       Width           =   5520
  101.    End
  102.    Begin Label Lbl_Version 
  103.       BackColor       =   &H0000FFFF&
  104.       Caption         =   "Version 1.04"
  105.       FontBold        =   -1  'True
  106.       FontItalic      =   0   'False
  107.       FontName        =   "MS Sans Serif"
  108.       FontSize        =   9.75
  109.       FontStrikethru  =   0   'False
  110.       FontUnderline   =   0   'False
  111.       ForeColor       =   &H00000000&
  112.       Height          =   240
  113.       Left            =   2685
  114.       TabIndex        =   2
  115.       Top             =   450
  116.       Width           =   1470
  117.    End
  118.    Begin Label Lbl_IconWorks 
  119.       BackColor       =   &H0000FFFF&
  120.       Caption         =   "NewStart"
  121.       FontBold        =   -1  'True
  122.       FontItalic      =   -1  'True
  123.       FontName        =   "MS Sans Serif"
  124.       FontSize        =   18
  125.       FontStrikethru  =   0   'False
  126.       FontUnderline   =   0   'False
  127.       ForeColor       =   &H00000000&
  128.       Height          =   465
  129.       Left            =   915
  130.       TabIndex        =   1
  131.       Top             =   225
  132.       Width           =   1770
  133.    End
  134. End
  135. DefInt A-Z
  136.  
  137. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  138. Declare Function GetWinFlags Lib "Kernel" () As Long
  139.  
  140. Const WF_STANDARD = &H10
  141. Const WF_ENHANCED = &H20
  142. Const WF_80x87 = &H400
  143.  
  144. Sub Cmd_OK_Click ()
  145.  
  146.    AboutBox.Hide
  147.  
  148. End Sub
  149.  
  150.